﻿Imports Capa_de_Acceso_a_Datos

Public Class frmAgregarCronogramaPresentacion

    Public CronogramaPresentacionId As Integer
    Private fechaCreacion As DateTime
    Private idMes As Integer
    Private nbreMes As String
    Private año As String
    Private observaciones As String

    Private Sub frmAgregarCronogramaPresentacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Public Sub CargarCombos()

        'Combo Año 
        cboAño.ValueMember = "AnoId"
        cboAño.DisplayMember = "Ano"
        cboAño.DataSource = Constante.obtenerAnos

        'Combo Mes 
        cboMes.ValueMember = "MesId"
        cboMes.DisplayMember = "MesNombre"
        cboMes.DataSource = MesDAO.obtenerMeses(0)
        cboMes.SelectedValue = Date.Now.Month

    End Sub

    Public Sub LimpiarFormAgregarCronogramaPresentacion()

        dtpFecha.Value = Date.Now
        txtObservaciones.Text = ""

    End Sub

    Private Sub btnAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgregar.Click

        Dim cantCronograma As Integer

        fechaCreacion = dtpFecha.Value
        idMes = cboMes.SelectedValue
        año = cboAño.SelectedValue
        observaciones = txtObservaciones.Text

        cantCronograma = CronogramaPresentacionDAO.idCronogramaPresentacion(año, idMes)

        If cantCronograma = 0 Then

            CronogramaPresentacionDAO.insertarCronogramaPresentacion(idMes, año, observaciones)
            frmCronogramaPresentacion.CargarGrillaCronograma()
            MsgBox("El Cronograma de Presentación ha sido registrado con éxito", MsgBoxStyle.Information, "Atención")
            LimpiarFormAgregarCronogramaPresentacion()
            Me.Close()

        Else

            MsgBox("El Cronograma de Presentación que desea registrar ya existe", MsgBoxStyle.Exclamation, "Atención")
            LimpiarFormAgregarCronogramaPresentacion()
            Return

        End If

    End Sub

    Public Sub CargarCronograma()
        Dim cronograma As DataRow
        cronograma = CronogramaPresentacionDAO.vistaCronogramasPresentaciones(CronogramaPresentacionId).Rows(0)
        fechaCreacion = cronograma("CronogramaPresentacionFechaCreacion")
        nbreMes = cronograma("MesNombre")
        año = cronograma("CronogramaPresentacionAno")
        observaciones = cronograma("CronogramaPresentacionObservaciones")

        dtpFecha.Value = fechaCreacion
        cboMes.Text = nbreMes
        cboAño.Text = año
        txtObservaciones.Text = observaciones

    End Sub

    Private Sub btnModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModificar.Click
        fechaCreacion = dtpFecha.Value
        idMes = cboMes.SelectedValue
        año = cboAño.SelectedValue
        observaciones = txtObservaciones.Text


        CronogramaPresentacionDAO.actualizarCronogramaPresentacion(CronogramaPresentacionId, idMes, año, observaciones, fechaCreacion)

        frmCronogramaPresentacion.CargarGrillaCronograma()

        MsgBox("El Cronograma de Presentación ha sido modificado con éxito", MsgBoxStyle.Information, "Atención")

        LimpiarFormAgregarCronogramaPresentacion()

        Me.Close()

    End Sub

End Class